with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Calendar ; use Ada.Calendar;

procedure Heure is
   T : Duration  ;
   Tint : Integer;
   H : Integer;
   M : Integer;
   S : Integer ;

Begin
   T := Ada.Calendar.Seconds ( Ada.Calendar.Clock);
   Tint := Integer(T);
   H := Tint / 3600;
   M := ( Tint - ( 3600*H ) )/ 60;
   S := ( Tint - ( 3600*H ) )- 60*M;
   S := Tint mod 60;
   Put("Il est ");
   Put(H);
   Put("h, ");
   Put(M);
   Put("mn, ");
   Put(S);
   Put("sec .");
  -- Put_Line("Il est "&String(H)&"h "&String(M)&"min "&String(S)&"sec .");
   New_Line;
end Heure;

